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ABSTRACT 


Pees tae 


THIS PROGRAM JS DESIGNED TO DETECT A FAULT IN THE FPPej2 

MEMORY ADDRESSING WAROWARE, ALL OF AVAILABLE MEMORY [5S FIRST 

ee’ 70 9707 OR 7270, AT THE STARY OF BACH PASS THE MEMORY 
CONSTANT 3S COMPLIMENTED, THE FPPei2 THEN STORES ONE 36 BI? 

wORD JNTO S CONSECUTIVE CORE LOCATIONS, THE FPP READS BACK THIS 
36 BLY WORD AND SYQRES {7 INTQ THE BASE TABLE THEN GOES INFO 
PAUSE, THIS ALLOWS THE OPERATION OF BOTH THE LOAD AND STORE 
FUNCTIONS TO BE CHECKED, WHILE THE FPPei2 IS IN PAUSE, THE 

POP CHECKS BOTH 36 BIT WORDS (FHE WORD AT THE MEMORY ADORESS 

AND THE WORD JN THE BASE TABLE,) AY THE CPERAYORS OPTION THE PDP WELL 
WHEN CHECK ALL, UNUSED MEMORY T- SEE THAT NOTHING HAS CHANGED, 
THE POP THEN CLEARS THE FPP WORD Af THE MEMORY ADORESS AND 
INCREMENTS THE ADORESS BY $ MEMORY LOCATION AND REPEATS YHE 
PROCESS, WHEN ALL OF MEMORY JS CHECKED EXCEPY THE LOCATIONS 
ECCUPIED BY THE PROGRAM, AT THE OPERATORS OPTION, THE PROGRAM 
wILL RELOCATE ITSELF YO THE NEXT FIELD, 
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REQUIREMENTS 


CHESHOEESOED 

BOUIPMENT 

errreseces 

a, AN FPPei2 FLOATING POINT PROCESSOR 

B®, A POPeS OR POPed2 WITH AT LEAST 4K OF MEMORY 
€, AN ASRS3 QR ASRSS5 TELETYPE 


S$ 7ORAGE 


g9°°eRs 


THE PROGRAM 3§ LOADED INTO LOCATIONS 080802577 
QF FIELO 8, THE PROGRAM USES ALL LOCATIONS OF EVERY FIELO 
VESTED, 


PRELIMINARY PROGRAMS 


gPeergroseseenecoeRe 


abk POPeS OR POPey2 PROCESSOR AND MEMORY DPAGNOSTICS 
FPPed2 INSTRUCTION TESYS 2A, 28, AND 2C, 


LOADING PROCEQURE 


QeHeeeaevegesenae 


LOAD THE PROGRAM WITH THE BIN LOADER, DIAL LOAQER OR PSe8 LOAGER’, 


STARTING PROCEDURE 


FORHOHHSORES HEROES 


4) START AY LOCATION O826 IN FIELD @, 
THE PROGRAM WILL HALT AT LOCATION IOGS | 


2) SEY SRO9e%1 TO THE HIGHEST MEMORY FIELD TO BE TESTED, 


) PRESS THE CONTINYE KEY 

THE PROGRAM WILL HALT AGAIN, @ib72 
@) SEY THE SWITCH REGISTER AS BESTRED (SEE "SWITCH OPTIONS®) 
§) PRESS THE CONTINYE KEY TO SPART THE TEST, 


RESTARY PROCEQURE 


SHQHSSHOKRHHHHEGEEE DS 


a, OETERMINE BY THE JNSTRUCTION FIELD LIGHTS WHICH FIELD THE 
PROGRAM JS RUNNING IN, 


B, RESTART ACCORDING TO "4, STARTING PROCEDURE”, BUT START 
AT LOCATION 2828 IN THE FYELO DESIGNATED BY THE 
INSTRUCTION FIELO LIGHTS, 
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@PERATION JNSTRUCTIONS 


AHRHGSHHHHSSOHERAGGHEEH 


KORMAL OPERATION 


? 
err rereececorans 


THE PROGRAM [§ NORMALLY OPERATED WITH SWITCH REGISTER = 8800, 


COMPLETE MEMORY CHECK (SRO? & SROB) 


gO Smo geeseoes se geese Fs sesso weRne=ey 


1F SROS = @ THE PROGRAM WILL CHECK EVERY LOCATION IN 
MEMORY EACH TIME AN FPPed2 QAPA ERROR OR BASE TABLE 

PRROR (SEE 9, ERRORS) JS DETECTEO, {F THE FPPei2 {S 
SYORING THE FAC INFTQ THE WRONG LOCATION, YHIS WILL FINO 
THE LOCATION THAT THE FPP OID STORE INTO, THE OJFFERENCE 
BETWEEN THE FPP FAILING ADDRESS ANO THE UNUSED MEMORY 
ADDRESS MAY PIONT ¥Q THE FAILING ADDRESS BIT, 


IF SROY = 4 ALL OF MEMORY WILL BE GHECKED EACH TIME THE 
FPPe{2 DOES A STORE REGARDLESS OF PHE SETTING OF SRB, 
VHIS WILL HAPPEN WHETHER OR NOT THERE WAS AN ERROR 
CEVECTEO, 


RELOCATION OPTION (SRO) 


PPL Serr woonerToeerFSHS 


EVERY TIME THE FPRPei2 COMPLETES STORING INTO ALL AVAIBLE 
MEMORY, THE PROGRAM WILL RELOCATE {TSELF INTO THE NEXT 
MEMORY FIELD UNOER TEST, JF SROS & 4, THIS RELOCATION 
9S BYBASSED AND TEM PROGRAM RUNS ANOTHER PASS IN THE 
SAME MEMORY FIELD, 
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SWITCH OPTIONS (SUMMARY) 


GHHSHSCHHASCKESTOCHHHHAEREE 


SEE "REF," PARAGRAPH FOR MORE DETAILED DESCRIPTION, 


SWITCH STATE REF, OPERATION 


¢ e ¢ $ 
aeeosreeerreeneveeneer ee OP tere ever es 


A g 9,3 MALY ON ERRORS 
i BYPASS ERROR HALT 
a4 g 14 TYPE ERRORS 
4 BYPASS ERROR TyPEOUT 
02 8 9,4 CONTINUE TEST AFTER AN ERROR 
4 LOOP ON ERROR 
es g 6,3 RELOCATE THE PROGRAM 70 THE NEXT FYELO 
1 RUN THE PROGRAM IN THE SAME FEELO; 
a4 Y, 8; TYPE ENO OF PASS [NFORMATION 
Pt SUPPRESS OND OF PASS YYPEQUTS 
es ‘) 8, CONTINUE To NEXT PASS 
4 HALT AY ENO OF A PASS 
26 g 9,3 CONTINUVE COMPARE AFTER AN ERROR 
4 START PPP AT THE NEXY ADORESS APTER AN ERROR 
a7 eg 4,2 CHECK FPP BATA ONLY (NORMAL MODE) 
4 CHECK ALL OF MEMORY (COMPLETE MODE} 
28 g 6,2 CHECK ALL OF MEMORY APTER AN FPP CATA ERROR 
. CHECK SRO? 
e9 a 9,7 OUTPUT ERROR INFO TO THE TTY | 
4 OVTPUY ERROR INFO TO THE LINE PRINTER 
q@ g NONE pPoP={2,81,8€ OR 8 LET FPP ACCESSES OVERLAP 4K MEMORY BOUNDRIES 
4 POP#8 OR LInCeS OO NOT LEY FRPP AGSESS OVER 4K MEMORY BOUNDRIES 
%4, 8 9,4 OUTPUT COMPLETE ERROR INFORMATION 
4 OUTPUT SHORT FORM ERRORS 


& = f ‘\ ; ‘ 
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END OF PASS 


aAtaeeeeaeten 


FACH TIME THE PROGRAM RELOQCAYES YO FIELD @ IS CONSIDERED FHE 
END OF 4 PASS THROUGH THE TEST, IPF SRB3 = 1, (NO RELOCATION) 
THE END OF PASS 1S WHEN THE FPPed2 STORES INTO THE LAST 
LOCATION IN THE LAST FIELD UNDER TEST, 

aT THE END OF EACH PASS A PASS COUNTER JS INCREMENTED, 

FACH ERROR COUNTER JS CHECKED FOR aN QCCURENCE OF AN ERROR’, 
FOR FACH NON ZERO ERROR COUNTER THE NUMBER OF ERRORS 

CF THAT TYPE (SEE "ERRORS") IS TYPED OUT, THE PASS 

AWUMBER JS ALSQ TYPEO, JF SR@9 = 4 THESE MESSAGES ARE 

CeUTPUT TO THE LINE PRINTER, SETTING SRB4 8s 1 WILL 

SUPPRESS THESE QUTPUTS, EACH FIME THE END OF PASS 
INFORMATION 1S OUTPUT (SRZ480) THE ERROR COUNTERS 

ARE RESET TO ZERO, THIS MEANS THAT FOR A GIVEN ENO 

eF PASS TYPEOQUT, THE ERROR COUNTS aRE THE NUMBER OF 

ERRORS DETECTED SINCE THE LAST TYPROUT, 

THE FORMAT OF THE FYPEOUT IS) 


UXXX FPP DATA ERRORS 

XXX BASE TABLE ERRORS 
¥XXX UNUSED MEMORY ERRORS 
END PASS XXXxX 


1F SROS # 4 THE PROGRAM WILL HALT WHETHER THE TYPEOUT 
eCCYRS OR NOT, 


tf SROS 8 @ THE END OF PASS HALT WILL BE BYPASSED, 
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FRROR FYPEOUTS (SR21) 


@ Pose awereoargowangc® 


IF SRO¢ei TYPEOUTS WILL BE SUPPRESSED IF AN ERROR 1S DETEC?ED’, 


IF SRO{e@ THE TYPE OF ERROR, FAILING ADDRESS, ANO ERONEOUS 
CATA WILL SE YYPEQ ON THE TTY, IF SRg9ed, THE MESSACE WILL 
BE OUTPUT 70 YHE LP@S OR LP12" 

THE FORMAY OF THE ERROR TYPEOUF JS} 


FYPE QF ERROR 


ADDRESS GOOD BAD 
MOMXXX XXXX KXXX 
XXXX XXX 
XXXX XXXX 


THE "ADDRESS" 1S TWE FIELD AND ABSOULTE ADORESS WHERE THE 

ERROR WAS DETECTED, (SEE JNOIVIQUAL ERROR TYPES SELOW FOR 

HE MEANING OF EACH ADORESS,) 

"GOOD" 3S WHAT THE 34 BIF CORRECT HATA WORD FOR THAT LOCAT{ON 
SHOULQ BE, THOUGH TNE WORD JS ONE 36 BIT PPPai2 WORD, If 1S OUTe 


PUT AS THREE 42 BIT WORDS AS FOUND IN § CONSECUTIVE MEMORY LOCATIONS, 


ALL THREE 42 BIT WORDS ARE TYPEO EVEN FHOUGH ONLY ¢ WORD MAY 
BE IN ERROR, 


"BAD" IS THE QATA FOUND IN MEMORY AY "ADDRESS" AND THE NEX® 
@ MEMORY LOCATIONS) 
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VYPES OF ERRORS 
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THERE ARE 3 TYPES OF ERRORS CHECKED FOR IN THE PROGRAM, HERE 
1S A DESCRIPTION OF EACH TYPE OF ERROR, THE HEADING JS WHAT 
bILL BE TYPEO IN THE "TYPE OF ERROR " FIELDS OF YHE TYPEOUT’, 


@RROR IN FPPe{2 DAYA WORD 


Ca 
pRoveerosresreotresreverere eee 


BAD DATA WAS FOUND JN MEMORY WHERE THE FPPei2 WAS SUPPOSED 

#O STORE [TS FAC, PHE FAC SHOULD HAVE CONTAINED EITHER 

8252 2525 5252 OR PHE COMPLIMENT OF THIS, IF THE BAD DATA IS 
SIMILAR TO THIS EXCEPT FOR A FEW BITS THEN THE FPPei2 DROPPED 
eR PICKEDeUP THESE BITS, IF THE BAD DATA {5S 7870 OR 

@707, THE FPPei2 OLD NOY STORE INTO THIS LOCATION, IF THE 
PROGRAM !S ALLOWED TO CONTINUE WITH SRO6e0 IF WILL CHECK ALL 
CNUSED MEMORY FOR AN ERROR, TRIS SHOULD TELL IF THE FRPP SPARED 
INTO YHE WRONG ADDRESS OR [F ff OFO NOY SYORE JNTO ANY ADDRESS; 
PNE OTHER POSSJBLE FAILURE THAT COULO CAUSE THIS TYPE OF 

ERROR 1S JP THE BAD DATA JS 5252 5252 5252 OR FHE COMPLIMENT 
QF THIS, THIS WOULQ OCCUR IF THE PPP STORED INTO THE CORRECT 
ADDRESS, BUT STORED THE-WRONG PORTION OF YHE FAC, 
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RRG® IN BASE TABLE 


& - @ 
aetepee veep ber 0 FF 2 8 ee 


AFTER THE FPP STORED JTS FAC JNTO MEMORY AT THE TEST ADDRESS 

tT LSADED THIS DATA BACK [NTO FHE FAC ANO STORED JY INYO THE 

@aSE TABLE’, THIS WORD JN THE BASE TABLE WAS FOUND TO BE BAD, 

iF ak ERROR IN THE FPPe42 DATA WORD (SEE 9,2,1) AND NO ERROR 

—N TWE BASE TABLE OCCYRS THE FPP STORED THE CORRECT DATA 

INTO THE WRONG LOCATION, J7 IS UNLIKELY THAT THIS ERROR WOULD 
eCCUR WITHOUT AN ERROR IN THE PPPed2 DATA WORD HOWEVER [TF IS 
POSSIBLE, JF fHIS JS THE CASE THE MOSY LOGICAL SUSPECT WOULD 

HE "FLOAN [INSTRUCTION WITH ADDRESS MODE 3 (SINGLE WORD INOIRECT), 


WHE ADORESS IN THE TYPEQUY JS fHE ADORESS OF YHE BASE TABLE 
WHERE THE DATA WAS STORED, IF NECESSARY, THE FRPei2 MEMORY 
ADDRESS CAN BE FOUND JN LOCATIONS 42 & 43 OF THE INSTRUCTION 
PIELO, 


@RROR IN UNUSED MEMORY 
rere ne eee ane ee 


BAD DATA WAS FOUND IN A MEMORY LOCATION UNUSED BY THE FPPef2;, 
HE ADORESS IN THE TYPEQUT IS ADORESS WHERE THE FURST ERROR 
wAS FOUNO, HE NEXT 2 WORDS ARE Pe TYPED IN CASE THIS 18 
HE PPPei2 OATA WORD, THE GOOD OATA WILL BE 7878 OR 

e787, IF THE BAD BATA §S SIMILAR *O THE GOOD DATA THEN THE 
pPPei2 DATA BREAK MAY MAVE DISFURBED SOME UNUSED MEMORY LOCATIONS, 
THIS TYPE OF FAILURE JS PROBABLY JN THE MEMORY RATHER YHAN 

qN THE FPPei2 THOUGH EXCESSIVE NOISE ON fHE FPPoi2 ADDRESS 
LINES MAY BE THE CAVSE, IF THE BAD DATA 3S 5252 2525 5252 OR 
THE COMPLIMENT OF PHIS, THE FPR STORED ITS Fac INTO THIS 
LOCATION INSTEAD OF THE CORRECT LOGATION, AN ERROR JN THE 
PPPed2 CATA WORD SHOULD HAVE BEEN TYPEO BEPORE THIS ERROR, 

@Y CHECKING THE DIFFERENCE IN ADDRESSES BETWEEN THIS 

i aL THE FPP OATA ERROR, A BAD ADDRESS BIT CAN BE 
TSOLATE 
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FRROR HALT (SROD) 


° a af 
eae@eax geass eFe2ne8 vege 
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IF SRO@se THE PROGRAM WILL HALT AFTER THE TYPEQUT, AT THIS TIME 
THE FPPei2 JS IN PAYSE, THE FPC CONTAINS 2932 IN BITS 3e44 

AND THE INSTRUCTION FIELD IN BITS Qe2, THE OP ADDRESS CONPAINS 
0054 IN BITS 3ei4 ANDO THE INSTRUCTION PIELO IN BITS @e2, PHE 
PAC CONTAINS THE DATA, YHIS SHOULD BE 5252 2525 5252 OR THE 
COMPLIMENT’ 


LOOP ON ERROR ¢SRo2) 


gece ee eorsceeoceroes# 


bHEN AN ERROR IS DETECTED, THE FPPey2 [S IN PAUSE, [fF SRO2=14 
THE PROGRAM ENTERS A LOOP WHICH FORCES THE FPP TO 00 
CONTINUOUS STORES AND LOADS AY THE BAD ADDRESS, YHIS [5S QONE 
BY STARTING THE FPP EVERY TIME JT ENTERS PAUSE, IN THIS LOOP 
WHE OP ADORESS CAN BE CHECKED WITH A SE0PE, HIS LOOP WILL 
CONTINUE UNTILL SROB2 IS RESET, 


CONTINUE CHECK (SRO6) 


ee Peegereresesrersget 


WHEN. AN ERROR OCCURS JF SRO6s4 THE PROGRAM WILL BYPASS 

CHECKING FOR MORE ERRORS IN THE LAST FPP OPERATION, THE PROGRAM 
bILL CAUSE THE FPPei2 TO STORE INTO THE NEXT MEMORY LOCATION 

AND CHECK FOR ERRORS THERE, THE REASON FOR THIS 

ePTION 1S THAT THERE COULD BE S TYPES OF ERRORS TYPED POR 

EACH FPP STORE, YHE OPERATOR MAY ONLY WANT THE FIRST 

PETECTED ERROR TO BE TYPED AND BYPASS FURTHER TYPEOUTS, 


SHORT TYPEOUT (SR14) 


g RQcerewrerecoereres 


IF SR3a * 4 THE ERROR TYPEQUT WILL CONSIST OF THE 
AODRESS LINE ONLY, THIS BYPASSES HE 2 HEADER LINES 
AND THE 2 DATA ONLY LINES, 


LINE PRINTER (SRO9) 


& - ~ 
se 
bwecereerequesorees 


JF SRO © ¢ THE PROGRAM WILL CWECK WHICH LINE PRINTER 
tL P?@e@ OR P42) JS ON THE SYSTEM AN® OUPPUT ALL MESSAGES 
70 THE PRINTER, 


IF THERE J$ A PRINTER ERROR OR NO PRINTER AVAILABLE, 
THE OUTPUT MESSAGE WILL BE LOST, 
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: /COPYRIGHY 1972, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS, 01754 
4 
5 
; /FPPei2 ADDRESS TEST 2 
8 
9 
40 
e: / FADOR2 V74 086567 
13 / Bit LAFLAMME / WALTER MANTER 
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SWITCH SETTINGS 


SROB 


SRO4 


SRBe2 


SROS 


SRO4 


SROS 


SROG 


SRO7 


SRG 


SRO9 


$R42 


SRii 


“oe Ff 2 *#@ *# 8 FYKeE *Y# PP *! AR Ye KBD lhe lUmYE RULE 


WALT ON ERROR 
BYPASS ERROR HALT 


TYPE ERRORS 
BYPASS ERROR TYPEOUT 


CONTINUE AFTER AN ERROR 
LOOP ON ERROR 


RELOCATE PROGRAM Te NEXT FYELD 
RYN PROGRAM IN THE SAME PIELO 


TYPE END OF PASS INFORMATION 
SUPPRESS END OF PASS TYPEOUTS 


CONTINUE TO NEXT PASS 
MALY AT END OF PASS 


CONTINUE COMPARE APTER ERROR 
START FPP AY NEXT WORD AFTER ERROR 


CHECK SR@B (NORMAL MODE) 
CHECK ALL OF MEMORY (COMPLETE MODE) 


CHECK UNUSEO MEMORY TO FING THE 
FPP CATA AFTER AN ERROR {S DETECTED 
CHECK FPP DATA ONLY 


OUTPUT ERRORS TO THE fty — | 
OUTPUT ERRORS 70 fHE LPoe BR LPa2 


NOT A POPsS OR LINGes COMPUTER 
A POPe® OR LINC#8 GOMPUTER 


OUTPUT COMPLETE ERROR TYPEOUT 
TYPE ERROR ADORESS LINE ONLY 


7139 








PAGE 2 








/GOPYRIGWY 1972, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS, 4 


55 





8629 


O84 
A088 
6008 
1238 
8882 


6958 
6355 
6556 
6552 


6663 
6664 
6666 


MODE® 26 


/ FPPei2 INSTRUCTIONS 
FRAUSE® 9924 


FL DAs 88g 
PSTAs 6002 
JAS 123¢ 
FCLA® 892 


4 FPPel2 foris 


FREOMs 6553 
FPST® 6555 
FPRSTs 6556 
FPICL# 6532 


/ POS yorrs 


Lgre 6663 
LSPs 6664 
LPCs 6666 


4 P42 Jores 


LSEs 66514 
LPRe 6664 
LCFs 6652 
LLBs 6634 
L$Be 6664 


/ JOT'S FOR BATH LINE PRINTERS USED TO CHECK WHICH PRINTER To USE 


SFLGe 6662 
CFLGS ©6644, 


OLALi@ vVee3  2eauger2 


SET PRINTER FLAG Por ese 
CHECK WHICH PRINTPR 18 AVAILABLE 


es 


ne 
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97 
98 
99 

472 

474 

472 

193 

424 


2948 


2928 
O924 


8922 
8223 


ag24 
9925 


2226 
8927 


499Q 
2980 


2829 


4777! 
3042 


4776! 
562 


4775! 
3962 


3774! 
8202 


7BLOCK 


K2, 


PMODE 
#2 
20 


MS 
MP 


JMS 
JMP 


JMS 
UMP 


JMP 
B22 


CLEAR 
POPT 


SE22 
PDPT 


SE24 
POPT 


RESTOR 


amr 
| 2ebUGer2 


/NORMAL START 
/RELOGATE PROGRAM FROM SR 
/GET DATA PROM SWEfCHES 


/RESTORE "BINY AND UMP TO 7777 
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/COPYRIGHY 4972, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS, 8% OLaLie@ vgas 2eAUGe72 7139 
439 
122 232 a32 
424 
bee /FPPeL2 INSTRUETIONS 
42¢ | 
424 /PWE FPPed2 GEFS DATA FROM DATAL AND STORES If INTO 
125 /¥WE MEMORY LOCATION IN AFLO AND APNTR ANO THE NEX® 2 LOCATIONS 
426 /TWEN CLEARS YWE FAC AND LOADS THE DATA BACK INTC PHE PAC FROM 
427 /Y¥HE MEMORY ADDRESS, {7 THEN STORES THE DATA INTO DATA 4 TO 
426 /BE CHECKED, 
429 
439 O030 8964 FPP, FPAUSE AWAIT FOR pop 
434 OG34 204 FI,0A 204 /LOAD DATA WORD FROM BASE TABLE 
432 O932 6699 STA 682 /STORE DATA AY ADDRESS IN BASE TABLE 
433 agS3 #02 FCLA /GLEAR THE Fac 
134 @934 8680 FLOA 688 /L0A0 DATA BACK FROM MEMORY 
138 9935 6282 FSTA 202 STORE GOATA IN BASE TABLE 
436 «6 BSG 4038 = =O FRYAe VA /FTELO B18 WILL BR CHANGED BY TRE 
437 @OS7 e832 FPP /PRP EACH ?IME THE PROGRAM JS MOVED 
438 9240 7979 DATA, 7878 /OATA FO FILL MEMORY WITH 
139 9044 9008 BASE, 2 /BASE TABLE 
448 842 8088 AFLO, @ /FIELD BITS POR FSTA AND PLOA 
443 943 8099 APNTR, @ 442 BI? ADBR FOR FSTA AND PLOA 
442 @944 8252 DaATAd, 8282 /DATA FHE PRP WELL 
443 ag45 2525 DATA2, 2525 ASTORE INTO MEMORY 
444 0946 3282 DATAS, 5232 ; ; 
445 G947 8909 DATAS, 2B /DATA THE PPP READ BACK 
446 90939 2982 , /FROM MEMORY 
447 8951 8809 ', 
448 e032 8982 APT, Y, /ACTIVE PARAMETER FABLE 
449 8993 28939 FPO, PPP 
490 9994 8600 8 
454 0g58 e044 PO, BASE /BASE FABLE POINTER 
452 4936 8969 g 
133 ao5? e802 , 
4364 GG49 2980 g 
455 6964 2968 g 
436 / 
457 /TEST SReGf | 
458 /yP SET FLAG LOCATION LAP 
159 /THE HOSY CP 3S A POPeS OR LINCeS 
468 /INHIBIT OVERLAPPING OF 4K BOUNDRIES BY FPP INSTRUCTIONS 
443 / 
1462 9062 7604 POPT, 1 AS /READ SW REG 
163 @g63 4027 ANO K2 /EXAMINE SR 48 
464 0964 7649 SZ CLA tS 1¥ Set ? 
165 ag65 7042 CMA “YES 
166 9966 3421 OCGA LAP SCONDIFION LAP MEMORY 4K BOUNDRY FLAG 
467 967 S73! JMP START 
( 
ae 
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148 
169 
172 
474 
472 
473 


Ag7¢ 
A974 
2072 
ao73 
ag74 
ag75 
AD76 
ag77 
a1ag 
1a, 
182 
aia3 
6104 
9405 
186 
0407 
8119 
@144 
142 
8115 
8144 
145 
P1416 
81447 
8120 
424 


2879 


239 
2282 
2200 
2929 
288g 
2908 
2908 
B88 
pag 
288g 
080 
3988 
90D 
pag 
apoe 
8215 
0242 
0097 
7748 
0108 
8249 


8386 


S209 


CPNTR, 
PPNYR, 
EPNTR, 
TPNTR, 
TABOR, 
WONT? 
ECNT) 
ETCNT, 
FCNTS, 
ECNT2, 
FONTS, 
PCT, 

LIMIT, 
FSW, 

Via 

T2451 
T2ied, 
77, 

¥M40, 
71280, 
T2425 
CRLF oa 
EBUF. 


LAP, 


anaes 


72 /CONSTANTS AND TEMPORARY REGISPERS 
g /ADDRESS POINTERS 
a 

a 

i, 

g 

A /COUNTERS 

g 

" /ERROR TYPEOUT COUNTER 
A /ERROR COUNT 4 

', /ERROR COUNT 2 

8 /ERROR COUNT 3 

", /PASS COUN? 

2 /VPPER FIELO LIMIT 
) SWITCH 

', 

245 

242 

77 

242 

162 

240 

1306 

8 

A 

a 

a /OVERLAP MEMORY 4K BOUNORY FLAG 
PAGE 
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224 
202 
203 
204 
205 
206 
207 
208 
209 


8289 
6284 
R282 
#238 
8284 
8285 


BSa6 
82807 
8248 
@2ii 
@2i2 
B243 
8244 
8243 
8246 
9247 
8229 
0224 
8222 
8223 
3224 
6225 
6226 
e227 
8232 
e234 
9232 
8233 
9234 
8235 
2236 
8237 
8242 
244 
9242 
@243 
g244 
245 
0246 
9247 
e259 


© 


OLAL2@ vVeeS 2eAUGe72 


/SET ALL OF MEMORY TO A CONSTANT, 

/YHE CONSTANT WILL BE COMPLIMENTED 

/EacH TIME THE PROGRAM $S MOVED TO A NEW PYELO 
/]P SPECTAL ENFRY 2824 HAS NOY BEEN USED, PHE 


/CONSTANT WILL BE gage OR 7777, 


SYVART, FPICL 
Fad 


CL COR, 


CFLOs 


CMA 
OCA 
JMS 
JMP 


CLA 


ATR 


oP A 


CLA 


DARA 


DATA 
CLEOR 
STPPP 


PFLO 
GFLD 


CENDeS 
CPNTR 
CCOF 
CFLO 
eg 
DATA 
CPNTR 


CFLD 


CLEAR THE FPPai2 

/GEY DATA WORD 

(COMPLIMENT ff 

ASTORE NEW DATA WORD 

/SE? ALL AVAILABLE CORE TO A CONSTANT 
/STARY THE FPP aL? 


/SET MEMORY 70 A CONSTANT 

/SEY DATA PIELO & PROGRAM FIELO 
/GET PROGRAM FPIELO BITS 

478 PROGRAM IN FIELD 2. 

/YES @ BYPASS PROGRAM AREA 

/SEF POINTER FO SPERTING ADORESS 
/QATA PIELG @ INSTRUCTION 

SET GLEAR FLELO 167 

/GLEAR MEMORY PIELO POINTER 

GET DATA 

SSTORE IN MEMORY 

SYNGREMENY POINTER 

/STORE NEX? MEMORY LOCATION 

/END OP FIELD © RESTORE DATA PYELD 
GET OLO PIELO cor 

/EXTRACT FHELO BITS | 

/MOVE FIELB BITS fo AC Sead 


—PSAVE FIELS BIfs 


/RESTORE AC 


/COMPARE WETH UPPER PIELO LIMIF, 
/PINISHED? 

/YES @ REVURN | 
/INGREMENT FLELO OLTS fo NEXT FIELO 
/GEY PROGRAM PYELO BITS 


/COMPARE WITH NEXT FIELD 
/GOING TO GLEAR PROGRAM FIELO? 
/YES @ BYPASS PROGRAM AREA 
/SEY STARTING ADORESS IN FIELO 
/GET O10 FYELD Cor 

/INGREMENT FLELO BITS 

/STORE NEXF FLELG Gor 

/CLEAR NEX® FIELDS 
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/COPYR), 7 4972, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS, @4 ODALIO VES 20AUCe72 7439 PAGE 8 
250 
254 /SET UP THE APY AND START THE FPPed2 
252 /SEY YHE FIELD BITS IN APTD YO THE PROGRAM FIELD’, 
253 JSEY YWE FIELD BITS OF THE "JA" INSTRUCTION TO THE PROGRAM FIELD, 
254 /COMPLIMENT THE FPP DATA, 
255 
256 @254 4777! STFPP, JMS PFLD /SEY DATA FLD = NST FLO 
257 9282 6552 FPICL /CLEAR THE FPPei2 
258 9253 7202 CLA 
259 B254 6224 RIF /GET INSTRUCTION FIELO BIfS 
262 9255 7496 R¥L CLL 
@6) 256 7106 RT, CLL /MOVE 6 BITS LEFT 
262 9257 7106 RTL CLL 
665 B260 6224 RIF /GET FIELO BITS AGAIN 
264 9261 7112 RFR CLL /FIELO BI?S ARF NOW IN 
469 9262 74419 RAR CLL /BITS SeS AND 9efi 
266 @263 39532 OCA AP? /SEY APY FYELO Bits 
267 0264 1165 rAd CFPP /GET ADDRESS OF FPP {NSTRUCTIONS 
268 9265 3953 oca FPC SEY FRC IN THE AP? 
269 8266 3942 BGA AF LO /2ERO FIELO BITS IN BASE FABLE | 
270 @2467 3943 OCA APNTR /2ERO ADORESS {N BASE TABLE 
e714 @272 1044 7A0 DATAY /COMPLIMEN? fHE BAPA 
272 @2714 7249 CMA 
279 9272 3044 OCA DATAL /PIRST DATA WORD (EXPONEN?) 
274 @273 1945 7Ad DATA2 
275 @274 7949 CMA 
276 9275 3945 OCA DAfA2 /SECOND BATA WORD tMSW) 
277 8276 41946 TAQ DATAS 
278 9277 7042 CMA 
a79 S300 3046 DCA DATAS /THIRO DATA PA Ha 
282 O304 4776! JMS GFLOD /GOT INST PIELO BITS . 
283 O382 1164 Tad CJA /a00 FLO BITS TO JA INSTRUCTIONS 
282 8383 3836 DEA FRJA /MODIFY PPPei2 PROGRAM FIELD BITS 
283 384 4776! JMS GFLO /GET PROGRAM FYELO BITS 
284 305 6553 FPCOM /SET FPPad2? COMMANDS REGISTER 
285 2306 7202 CLA 
286 387 11363 Tad CAPT /GEY APT AGBDRESS 
287 8340 65535 FPST /STARYT THE FPPei? 
488 O344 7492 HLT /FPPei2 DIG NO? START 
gar 342 48556 FPRSY /GEY FPP=i? STATUS REGISTER 
292 9343 7842 RR /BI7 40 70 THE LINK 
e974 2344 7622 SNL CLA /FPPei2 IN PAUSE? 
292 9345 5342 JMP ,23 /NO@WAIT 


293 346 5347 JMP RUN /YESeRUN TES? 
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294 
295 
296 
ao? 
2968 
299 
$208 
594 
592 
548 
yn4 
325 
376 
$87 


942 


8317 
8328 
8321 
8322 
BY23 
G326 
A325 
8326 
4327 
@330 
6331 
8332 
4335 
9334 
8335 
8336 
6337 
834g 





4776! 
7844 
1242 
7658 
1467 


7286 
1472 
3775! 
6555 
7860 
6556 
7812 
7626 
3334 
3774! 


0008 
1323 
7636 
5954 
4043 
4956 
7630 
5353 
2943 
8744 
2344 
5744 
7462 


BG8S 
B406 
8415 
1625 
1647 
8488 


G4 O{ALis vees 2eAUGe72 


/CWECK THE FPPel2 FIELO ANO ADORESS POINTERS AND 
/CAWSE THE FPPei2 7O STORE 4 FLOATING POIN? WORD 


/AND PAUSE, 


RUN ¢ JMS 
Cia 

FAD 

SNA 

Fao 

OCA 

Fao 

Chl 

RTL, 

FAQ 

OG4 

FSTEP, FPST 
NOP 
FPRS 

RFR 

SN, 

MP 

ghP 


CLA 


RAl, 


Y 


Cia 


GFLD 
AFL 
CENO 


APNTR 
AFLD 


CCoF 
OFLO 


,e9 
CMPR 


/ 
/TP LAP FLAG 1S SEF 
/INHIBITING OVERLAPPING OF 4% MEMORY BOUNDRIES 


/ 
INELAPs @ 
Fad 


GNA 
Jur 
TAD 
TAD 
SNA 
JMP 
{Sz 
JMP 
1§2 
JMP 
HLT 


KS, AGES 


PAGE 


CLA 


CLA 


LAP 


p #5 
APNTR 
KE 


,o3 
APNTR 

INGLAP 
TNGLAP 
TNGLAP 


/GET PROGRAM FIELD BITS 


/COMPARE WETH FPP FIELD BITS 
*MATCH? 

/YES @ BYPASS PROGRAM AREA 
/S?7ORE FPP STARTING ADBRESS 
/GET FPP FLELO BITS 

AMBVE TO AC 608 


/MAKE GOP HE SAME AS PHE FPP FIELO 
/MODIFY COMPARE ROUTINE 
/STEP PPP FHROUGH PHF PROGRAM ONCE 


/GET FRPP SParus 

MOVE PAUSE Bf° FO LINK 
/{S THE FPP IN PAUSE 

ANG @ WALT FOR FPP PAUSE 
/¥ES @ CHECK FHE RESUL?S 


/SHQULD NEVER GET WERE 


“™ 
() 
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/COPYRIGHT 1972, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS, 91 DLALi8 vaees 2eAUGa?2 7139 PAGE 18 
$49 
344 /COMPARE THE FPPel2 DATA WORD YHAY WAS STORED INTO THE 
342 /ADDRESS IN AFLD AND APNYR AND ALSO THE DAPA WORD STORED 
$43 /INTO DATA 4 WITH fHE CORRECT SATA, 
344 /THE CORRECT FPP DATA IS IN DAPAL, 
345 
346 3408 41943 CMPR, TAD APNTR /GET FPP ABORESS 
347 2404 3072 DCA CPNTR /SET COMPARE POINTER 
348 2402 11462 TAD COATAL /GET ADDRESS OF GOOD DATA 
349 2403 3974 DCA TADOR /STORE IN EMP ADDRESS REGISTER 
350 0404 11634 TAD EDATAS /GEY ADDRESS OF RASE TABLE DATA 
354 9405 3040 OCA 12 /SFORE IN AUTO INDEX REGISTER 
352 9406 1169 TAD Ces /GET WORD G@OUNT 
$53 0487 SO75 OCA WONT /SEY WORD GOUNTER FOR S$ WORDS 
354 0440 6224 RIF /GET PROGRAM FIELD BITs 
355 0444 4173 TAD CCoF /GREATE a RESTORE GDF 
356 8442 $e15 OCA RFLOD /UPQATE THE PROGRAM 
557 8443 6221 OFLOs  cCOF /GHANGE 70 FPP DATA FIELD 
998 0444 1470 TAD $ = CPNTR /GET FRPP BATA WORD FROM MEMORY 
$39 445 6204 RFLO, COP /RESTORE OATA PIELB 
360 8446 7044 CYA . 
$64 B447 1474 TAD | TABOR /COMPARE WITH GOOD DATA 
362 420 7649 SZA CLA /}8 FPP MEMORY DATA OK? 
363 6424 4777! JMS ERRORS /NO © REPORT ERROR 
364 8422 1442 rad = 642 /GET FPP BASE TABLE DATA 
349 9423 7844 CIA _ 
366 B424 1474 TAD } TABOR /GOMPARE WITH GOOD DATA 
567 9425 7649 SZA CLA 43S FPP BASE FABLE DATA OK? 
368 9426 4776! JMS ERAQR2 4NQO e@ REPORT ERROR 
69 9427 2075 1S2 WENT /END OF CHECK? 
$72 430 7648 SKP CLA /NO @ CONTINUE 
a73 8434 5253 JMP CEND AYES » RESPORE ANY PROGRAM CHANGES 
372 9432 2074 {$2 FABOR 
$73 9433 2979 {$2 CPNTR /}NGREMENT POINTER 
374 B4394 5213 JMP OFLO /CHECK NEX? WORD. 
$75 0435 12843 TAD OFLO /FIELD OVERFLOW » MODIFY COF 
376 436 a4%¢ ANO C72 /GET OL0 PYELO BITS 
377 0437 7440 CLL RAR /MOVE 70 AG Safa 
378 9449 7942 RFR 
379 9444 7044 CIA 
389 0442 11404 TAQ LIMIT /COMPARE uf Ms ey | 
384 3443 7650 SNA CLA /WAS THAT THE LAST FIELD? 
382 9444 5255 JMP LIM? /YES » CHEGK TF LIMIT IS FIELD 7 
$83 9445 7249 STA CAERI7F7 
954 8446 3495 OCA FSW /SET FIELD CHANGE SWITCH 
385 8447 41243 TAD OFLD /GET FPP DATA COF 
386 0450 1166 TAD F< /YNGREMENT FIELD BITS 
387 9454 3243 Oca OFLO /SFORE NEW COF 
388 7492 $243 JMP OFLD /CHECK NEW WORD | 
389 9453 4266 CENOs JMS RESCOF /RESTORE OFLD COF 
390 1454 83303 JMP CKMEM /CHECK UNUSED MEMORY 
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394 
592 
3935 
594 
595 
396 
$97 


: 
oo 
+ 


5M» + Se |e 5 BD » Boi Bri 
PS BS ABS 9 G= 
Ne BS O'@e~s 


8435 
9456 
0457 
0440 
A464 
9462 
8463 
464 
8465 


8466 
8467 
#478 
8474 
e472 
@4783 
8474 
0475 
3476 
8497 
8508 
0504 
ase2 


= 
[ 

I 

1 

See 

pone 


/$P THE UPPER LIMI? WAS FIELO 7%, THE FIRST LOCATIONS OF 
/FIELO @ WILL BE CHECKED 8 SEE THAT THE FPPeil2 CAN 
/RAP@AROUND FROM FIELO 7 TO FIELO @, 


LIM7s YAO LIMIT /GET LIMI? (SR Geil) 
Ad Ce? /¥S LIMITS? (32K OF MEMORY) 
SZ CLA /iPF YES CHECK RAP AROUND 
JMP CEND /NO e END OF CHEEK 
STA 
OCA FSW /SET FIELG CHANGE SWITCH 
TAQ ECOoF /GET FIELO @ COF 
pCa OFLO /UPDATE PROGRAM 
JMP OFLD /GHECK WORBS IN FIELD @ 


/{P THE CDF INSTRUCTION IN THE COMPARE ROUPINE WAS MODIFIED 
/BECAUSE THE FPPef2 OVERLAPPED A FIELD, THEN If MUST BE 
/RESTORED TO J?S ORIGINAL FIELD, 


RESCOF, @ /RESTORE OPLD COP 
TAO FSW /GEP FEELO CHANGE SWITEH 
SNA CLA fwaS OPLO moolFieo? 
uMP f RESCOF fN@ e@ RETURN 
e¢a FSw AYES o RESET FIELO CHANGE SWITCH 
TAS OFLD /GET MODIFIES Cor 
AND C7a /EXTRACT FEELO BETS 


SNA ARE FIELO BITS 8 2? 


TAO Cig /¥E@ © 466 18 FOR @HIS SPECIAL CASE 
TAD Ceid /SUBTRACGT 7 FROM FYELO BIFS 

Tad CCOF /HAKE NEW GDF 

OGA OFLO /RESTORE OFPLO EOF INSTRUCTION 

JMP $0 = RESCOF /RETURN 
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/COPYRio@y 4972, DIGITAL EQUIPMENT CORP,, MAYNARG, MASS, 84 DYALia voeS 2edUGs72 7139 PAGE 12 
423 : 
424 /CHECK ALL UNUSED MEMORY TO SEE JF ANY LOCATIONS HAVE BEEN CHANGED, 
425 /THE FPP DATA WORD IS CLEARED YO YHE MEMORY CONSTANT 
426 /BEFORE CHECKING MEMORY, YHIS JS SO THAT AN ERROR WILL NOT 
427 /BE DETECTED aY THE FPP DATA ADDRESS, 
428 
429 A503 7694 CKMEM, LAS /GET SWITCH REGISTER 
432 M504 7454 AND CMODE /EXTRAGT FAS MODE SWI PCH 
431 9505 7659 SNA CLA /PAST MODE? . 
432 9506 5775! JMP CHPEND /YES @ BYPASS MEMORY CHECK 
433 527 11455 TAD Ceig /GEY ERROR COUNT - 
434 548 3977 DCA ETENT /SET COUNTER 0 TYPE 10 ERRORS ONLY 
435 544 4774! JMS PPPzZ /GLEAR THE FPP DATA FROM MEMORY 
436-8542 4773! JMS GFLD /GEF FYELO BIFS IN AC Suid 
437 O543 7659 SNA CLA 4/18 PROGRAM IN FIELD 8? 
438 9544 1167 FAD CENO /YES e BYPASS PROGRAM AREA 
439 8545 So7g DGA CPNTR SEY COMPARE POINTER TO FIRST WORD 
449 0546 i471 TAD CCoF /GDF O28 © STAR? IN FIELD @ 
444 @547 332g DCA CMPLD /SEY COMPARE MEMFLO EDP 
442 8520 6294 CMPLD, CQOF /CHANGE 0 COMPARE DATA FIELD 
443 2524 1478 TAD } CPNTR /GET DATA 
444 9522 7844 CIA . 
445 6523 10948 FAD DATA /GOMPARE WHITH BORRECY BATA 
446 9524 7649 SZA CLA /38 DATA GORRECT? 
447 6525 4772° JMS ERRORS 7NQ » UNUSED MEMORY ERROR 
448 85326 2070 132 CPNTR /INCREMEN? COMPARE ADDRESS 
449 0527 58329 JMP CMPLD /GET NEXT WORD 
459 O530 4774! JMS PFLO END OF FleLo 
454 9534 1322 TAO CMFLO /GEY DATA PIeELB Gor 
452 a532 8176 AN® E7@ /EXTRACT FLIELO BITS 
453 a333 71442 CLL RTR /MOVE 7O BITS Sef4 
454 O534 7949 RAR 
455 @535 3426 DCA et /SAVE FIELS Bits 
456 9536 1406 TAQ Td /RESTORE Ab 
457 6537 7044 CA | | 
458 B548 1404 TAQ LIMIT /GOMPARE WITH LIMJ? (SR 9e44) 
459 0544 7759 SPA SNA CLA WAS THAT PHE LAST FIELD? 
460 2542 S7P5¢ JMP CMPEND /YES @ END OF CHECK 
464 A543 2406 {$2 T4 /ING DATA PIELD BLFS 
462 9544 4773° JMS GFLOD /GEF PROGRAM FIELD 8178 
463 9345 7944 Cia | 
464 0546 1106 TAD 4 /GOMPARE WITH NEXT Flelo 
465 9547 7682 SNA CLA 418 PROG FIELD TO BE CHECKED? 
466 @559 1467 FAD CEND /YES » BYPASS PROGRAM AREA 
467 0554 3879 DGA CPNTR /SEY POINTER FO FIRST WORD IN FIELDS 
468 @552 1320 TAD CMPLO /GEY DATA FIELD fDF 
469 553 1466 TAD Cia /INCREMENYT FIELD BITS 
472 @534 $326 DCA CMPLO /STORE NEW CAF INSTURCTION 
473 9555 5322 JMP CMFLD /CHECK NEX? PIELD 
472 0574 1647 
473 572 14381 
474 9573 1623 
475 A574 8644 
476 0575 699 
477 8376 1954 














Beet 39Vd 


6814 


+ 


c485nved 


Sa8A etivita 


tg 
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928% £462 Gp 
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479 
480 
484 
482 
483 
484 
485 
486 
487 
488 
489 
492 
494 
492 
499 
494 
495 
496 
497 
498 
499 
528 
50 

38 

$03 
304 


~ 


3 


2600 
8684 
2622 
8683 
604 
2605 
2606 


8645 


4244 
47778 
4763 
5776! 
1942 
7044 
4424 
7759 
3245 
2942 
S775! 
7402 


8088 


3 
6294 
g 


/JCLEAR FPP WOROS AND INC ADORESS, 





ee 


2eAUGe72 PAGE 13 


74139 


64 ODIALA® vees 


THE FPP DATA {N 


/MEMORY MUST BE RESTORED TO THE SAME DATA THAT IS IN THE 
/REST OF MEMORY BEFORE CONTINUING TO THE NEXT FPP OPERATION, 


CMPEND, JMS 
JMS 


FPPZ, 


CKPLO, 


JMS 
JMP 
TAD 
cya 
TAD 
SNA 
JMP 
182 
JMP 
HLT 


SPA 


RT|, 


CLA 


FPp2 
PFLO 
TNCLA 
PSTEP 
APLD 


LIMIT 
CLA 
CKREL 
AFLO 
RUN 


/CLEAR FPP DATA 

ASEY DATA PIELO # PROGRAM FIELD 
INCREMENT FPP ADDRESS 

/NOY END @ CHECK NEX* WORD 

/GEY FPP FIELD BITS 


/COMPARE WITH UPPER LIMIT 
/MORE FUELBS? | 
/NO @ RELQ@ATE PROGRAM TO NEXT FIELD 
AYES » ING FPR Fiello BIrs 

CONTINUE FO NEX? ADDRESS 

/PROGRAM SHOULD NEVER GET WERE 
/RELOAD THE PROGRAM 


/GLEAR THE FPP DATA WORDS 


/GET FPP ADORESS 

/SFORE JN GHECR POINTER 
/GEY FeP PYELO BITS 
/MOVE TO BITS 608 


/CREATE CORRECT GOP INSTRUETION 
/MOBIFY PROGRAM 
SEF WORD GOUN? 


/GET DATA WORD 

/CLEAR LAS? FRPP WORD 
/INCREMENT WORD GQUNT 
/CGONTINUE 

/END OF CLBAR 

/INGREMENT ADDRESS 

/CLEAR NEX? WORD. 

/FIELD OVERFLOW » MODIPY COF 
/INCGREMENT FIELD BITS 
/KEEP PIELB BITS ONLY 
/MAKE NEW GDF YNSTRUCTION 
/MODIFY PRAGRAM 

/CLEAR NEX? WORD 
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$25 
226 
529 
528 
529 
930 
534 
93@ 
933 
934 
535 
536 
$37 
538 
939 
$49 
$44 


8645 
2646 
2647 
9658 
9654 
0652 
8653 
9654 
2685 
0656 
2637 
#668 
9664 
9662 


7604 
0453 
7649 
3263 
4774! 
4773! 
0172 
7459 
5243 
1452 
3262 
6292 
5662 
8208 


Bi BYALG@ veges 2eAUGe72 7439 PAGE 14 


/CHECK IF PROGRAM {S$ FO BE RELOCATED (SROS & 6) 


CKREL« 


ENORELs 


LAS 
AND 

SZA CLA 
MP 

JMS 

TAD 

AND 

SNA 

JMP 

TAD 

OCA 

Cir 

JMP 3 
START 


C400 


EPaSss 
RELO 
NFLO 
C76 


EPASS 
eCIrF 
,of 


,ei 


/GET YHE SWITCH REGISTER 
/EXTRACT SRZS 

/SRQS = AP 

/NO @ END OF PASS 

/YES © RELOCATE PROGRAM 
/GET NEXT PIELO GDF 
/EXTRACT FYELO BITS 

433 NEXT Ae ies 

/Y¥@S @ ENO OF P 

/MAKE CORRECT ete INSTRUCTION 
/MODIFY PROGRAM 

/CHANGE TO NEX? He FIELO 
/RUN FEST IN NOX? FLELA 


o— 
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542 
543 
544 
545 
546 
547 
548 
949 
552 
554 
552 
553 
554 
555 
556 
557 
558 
559 
968 
564 
562 
563 
964 
565 
566 
567 
366 


9663 
7664 
2665 
2666 
3667 
7679 
8674 
#672 
9673 
#674 
8675 
2676 
8677 
#739 
8784 
a7ae2 
9723 
e704 
#785 
8726 
0787 


®740 
@744 
a712 
8743 
#744 
9745 
8746 
6747 
8728 
e724 
8722 
6723 
6724 
8725 
2726 
0727 


/END OF A PASS; 





lm, 
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DyalLi~a vaes 2eAUGe72 74139 


/THIS ROUTINE JTS ONLY ENTERED YF THE PROGRAM YS CONTINUOUSLY 
JRELOCATING (SR2@ = @} AND THE PROGRAM {S BEING RELOCATED 

/TO FIELO 2, 
/ALL PROGRAM FYELOS, | 
/FIELD 2 JS BEING PESTED, EACH PASS OF THE FPPai2 FHROUGH 


/YME FIELD IS ONE PROGRAM PASS, 
EPASS, CyF 
JMP 


EPd, 


Er2, 


EPS, 


cor 
LAS 
ANO 


SA CLA 


JMP 
JMS 


SNA CLa 


JMP 
JMS 
LIN2 
TAD 


SNA CLA 


JMP 
JMS 
ECNTS 


PETie4 


JMS 
PETS 
JMP 


AQ 


SNA CLA 


JMP 
JMS 
EGNT2 


PET2e4 


PET2 
FAD 


SNA CLA 


JMP 
JMS 
ECNTS 


PETS#4 


PETS 


ee 
C,o4 
2 
C282 


EPS 
EFLAG 


EP4 
TYPE 


ECNTS 
FP2 
AS 
TYPE 
EP? 


ECNT2 
EPS 
ASE 
TYPE 
ECNTS 
EP4 
ASE 


TYPE 


THIS IS CONSIDERED THE END OF ONE PASS THROUGH 
IF THE PROGRAM 3S IN FIELD @ AND ONLY 


/GO TO fiat Q 
/CONTINUE IN FIELD 2 

/DATA FIELA @ 

/GET THE SWITCH REGISTER 
/EXTRACT SRB4 

/T¥PE END OF PASS [NFORMATION ? 
/NO @ BYPASS FYPEQUT 

/YES e GEF ERROR FLAG 

/ANY ERRORS IN THIS PASS? 
/NOeBYPASS ERROR COUNT 

/¥YPE "PASS XXX 

/TEXT ADDRESS 

/GET ERROR FLAG 

/ANY FPP ABDRESS ERRORS? 

/NO 

/CONVERT ERROR COUNT YO ASCII! 
ERROR COUNT 

/TEX? ADDRESS 

/TY¥PE NO, OF ERRORS 

/FEXT ADDRESS 

/CHECK ERROR COUNT 2 


/GEY ERROR FLAG 
/ANY BASE FABLE ERRORS? 


/NO 

/GONVERT ERROR COUNT fo ASEI! 
/ADORESS OF ERROR GOQUNF 

/TEXT ADDRESS 

/FYPE ERROR COUN? 
ADDRESS OF TEXT STRING 

/GE? LAST ERROR COUNT 

/ANY UNUSEB® MEMORY ERRORS ? 
JNO e@ BYPASS TYPFOUT 

/GONVERT ERROR COUNT TO ASCI! 
/ERROR GOUNT 

/TEXT ADDRESS 

/TYPE ERROR COUNT 

/TEXT ADORESS 
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993 
594 
595 
596 
997 
598 
499 
600 


#732 
734 
8732 
e738 
8734 
0735 
2736 
737 
8748 
8744 
0742 
a74$ 
8744 


745 
8746 
8747 
9758 
6734 
792 
8733 
9794 
8755 
8756 
6757 
8749 
6764 
6762 


8763 


9766 
0767 
8778 
B774 
8772 
8778 
8774 
8775 
776 
0777 


47798 
2193 
2486 
477%! 
240g 
4767! 
2483 
700g 
7484 
A156 
7648 
7402 
5766! 


EP 4» JMS 
PCT 
FRTY 
JMS 
EPT 
JMS 

EPS, 1$z 
NQP? 
Las 
ANO 
S$ZA CLA 
HLT 
JMP 


ASE 
TYPE 
CLRCT 
POT 


Cia2 


START 


84 DIAL1O vases 


/CONVERYT PASS COUN? TO ASCII 
PASS COUNTER 

/FEx? ADBRESS 

/T¥PE "END PASS XXXX*" 

/FEX? ADDRESS 

AEERO ERROR COUNTERS 
/INGREMENT PaSS COUNTER 


/GEY SWITCH REGISTER 
/EXTRACT SROS 

/¥S SRBS SET? 

/NOQ @ END OF PASS HALT 
/RUN NEXT PASS 


/RESTORE YWE LAST PAGE IN FIELO @ ANDO 


AJUMP YO THE BINARY LOADER 


s7uyS ROUTINE {S ENTERED BY THE OPERATOR A® THE CONSOLE, 
/E® CAN TETHER BE ENTERED HERE OR BY STARTING AT LOCATION 0026, 


RESTOR, CLA 
TAQ 


7977 


INELA, INGLAP 


PAGE 


C7688 
CPNTR 


CSBUF et 


12 
PFLOD 
+@ 

02 
CPNTR 
CPNTR 
,05 
ee 
,*7 


/GET ADDRESS OF LASY PAGE 
/SAVE IN PAINTER 

/ADORESS OF SAVE BUFFER 
/SAVE EN AUTO INDEX REGISTER 
/SET DATA PIELSsPROG FIELD 
/GET WORD PROM BUFPER 
/STORING IN PIELO B 

/STORE WORG EN LAS? PAGE 
/ENGREMENT POINTER 

MOVE NEXT WORD . 
/FINISHEDSGOTNG FO FIELD @ 
/JUMP FO BINARY LOADER 


f er ey %, 
a, 
: ) 

My 


ee hAUGat2 
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945 
646 
647 
048 
049 
652 
654 
Q5¢@ 
Q33 
654 
955 
056 
957 
958 
959 
068 


1026 
1027 
1232 
1834 
4032 
{233 
4034 
4235 
1236 
4937 
4042 
4241 
1242 
4243 
1o4a4 
4045 
1246 
1947 
1258 


2088 
2428 
9258 
72848 
3192 
1849 
S272 
47755 
1774! 
a773! 
G044 
1674 
3772! 
4474 
7Q4d 
1448 
7648 
4254 
eR74 





ale, 


ODYIAL(@ veeas 2edAUGe?e 


/THIS ROUTINE WILL RELOCATE TRE PROGRAM QO THE NEXY MEMORY 


AFIELD TO BE YSED, 


JF TRE PROGRAM IS IN FLELD @ AND ONLY 


/FIELD @ JS BEING FESTED, THE PROGRAM GOES THROUGH THE MOTIONS 


/OF RELOCATING ANYWAY, 


THIS {5 


MONE TO SAVE THE NECESSARY 


/CORE TO CHECK FOE THIS CONDITION, 


RELO: 


RE22,; 


MOVEP, 


NPLOe 


/FPP DATA ERROR 
/YHE FPP SHOULD 


g 

JMS 
JMS 
cya 
TAD 


SPA SNA 


JMP 


ERRORI, 2 


BTCKe 


[Sz 
JMP 
STA 
QCA 
FAD 
PGA 
JMS 
TAD 
JMS 
DATA 
ETXT4 
JMP 
TAD } 
Cya 
TAD f{ 


SZA CLA 


JMS 
1Sz 


PFLO 
GFLO 


LIMIT 
Cla 
1%S 


C48 
CCOF 
NFLO 
PPNTR 
FeeND 
WONT 
PPNTR 
8g 
PPNTR 
PFLO 
PPNTR 
WONT 


~MOVEP 


RELO 


IN MEMORY, THE 
HAVE STOREQ WaS 


ECNTS 
143 


ECNTS 
APNTR 
EPNTR 
RESCOF 
OFLD 
ERROR 


CMPEND 
TADOR 
12 


ERROR? 
FADDR 


/SEY PROGRAM DATA FIELO 
/GET FIELO BIfS IN BITS Fahl 


/GOMPARE WITH UPPER LIMIT 
/LAST PIELS? 

/YESeRELOCATE FO FIELD @ 
/GEY THIS PIELD BIFS 
/INCREMENT TO NEXT FIELD 
/CREATE CDP INSTRUETION 

/SET NeW FYELO COF 

/SET PROGRAM POINTER TO 2 
/SET PROGRAM WORD EOUN? 

/SET WORD GOUNTER 

/GET PROGRAM PROM PHIS FIELD 
CGHANGE TQ NEW DATA FXELO 
/SPORE PROGRAM IN NEXT FIELD 
/SEY DATA PLO &@ PROG FLO 
/UNCREMENT PROGRAM POINTER 
/INCREMENT WORD @QUNT 

GET NEXT WORD 

/FINISHED 


DATA JN THE ADDRESS WHERE 
FOUND 70 BF BAD, 


/FRP ADDRESS ERROR 

/INGREMEN?T ERROR COUNT 

NO OVERFLAW 

47777 YS MAX ERROR COUNT | 
ZRESTORE COUNT AFTER QVERFLOW 
/GET ADDRESS OF BAB DATA 

/STORE IN FRROR POINTER 

/RESTORE OFLO Gor TF If WAS CHANGED 
/GET BAD DATA CDF 

/REPORT ERROR 

/ADORESS OF GOOD DATA 

7ADDRESS OF FRROR TEXT 

/SRO6 8 4 START FPP AT NEX? WORD 
/CONTINUE BASE TABLE CHECK 


/GET NEXT WORD FROM BASE FABLE 
/}$ BASE FABLE DATA OK? 
/BASE TABLE DATA ERROR 
/INCREMENT TES? ADOBRESS 


7139 
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762 4654 2075 1$z WONT END OF CHECK? 

784 4252 3243 JMP BYeK /NOeCHECK NEXT WORD 
782 4233 5272 JMP ENBL2 GO TO ENO To CHECK SR 
788 





“™ 
MU” 
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724 
7a5 
796 
787 
7208 


1954 
1255 
1036 
1057 
1048 
1264 


1976 


3029 
2404 
5264 
7249 
$104 
1445 
3072 
4775! 
1474 
6224 
4773! 
B044 
1743 
5772! 
7604 
166 
7048 
S774! 
3779! 


/ERROR JN THE BASE TABLE, 
/TABLE WAS FOUND fo BE BAD, 


FRROR2Z, 2B 


ENDL2, 


1Sz 
JMP 
Sta 
OCA 
FAD 
OCA 
JMS 
TAD 
RIF 
JMS 


DATAS 
E¥XT2 


JMP 
Las 
AND 
SZA 
UMP 
JMP 


CLA 


ECNT2 
#3 
ECNT2 
COATA2 
EPNTR 
RESCOF 
CCOoF 


ERROR 


CMPEND 
Cie 


CKMEM 
CKMEMed 


/ 
rae 
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THE DATA IN DATA4 IN HE BASE 


/FPP BASE fABLE ERROR 
ZINCREMENT ERROR COUNT 

/NO OVERFLOW 

47777 §¥S MAX ERRAR COUNT 

/RESTORE COUNY AFTER OVERFLOW 

/GET ADDRESS OF RAD DATA 

/STORE IN PRROR POINTER 

/RESTORE OFLO CDF YF I? WAS CHANGED 
/GET GOF INS?RUCTION 

/ADD PROGRAM FYELO BITS 

/REPOR? FRROR : 

/ADDRESS OF GOOD DATA 

/ADDRESS OF ERROR FEXT 

/S$RO6 a 4 STAR? FRPP at NEX? WORD 
/GEY SWITCH REGISTER 

/EXTRACT SRgG8 

4/18 SROB 8 1 7 

/YES » CHEEK SRO? 

/NO » FING YHE FPP DATA 
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729 
738 
734 
732 
738 
734 
735 


4977 2888 
1188 7682 
4181 7604 
4192 S840 
4183 7682 
4184 7604 
4105 3944 
4186 7682 
4187 7604 
4110 3845 
4114 7682 
4112 7604 
4113 3946 
1114 7682 
4415 3677 


41126 8888 
4147 7662 
4120 1476 
$124 3268 
41422 7684 
41423 0444 
4124 7184 
£14235 7686 
4126 Seda 
4427 7682 
4138 5222 


/SPECIAL ENTRY 24, ENTERED BY STARTING THE POP Af 
/LOGATION 8024, THIS ROUTINE ALLOWS THE OPERATOR £0 
/SELECT HIS OWN MEMORY CONSTANT AND FPP DATA VIA THE 
/SWITCH REGISTER, 


SER4, a /SPECIAL ENTRY 24 
HLT CLA /SET SR TO MEMORY BATA 
LAS /GEY SWITCH REG 
oca DATA /STORE IN MEMORY DATA 
MELT CLA /SET SR TO FPP EXPONEN? 
LAS /GEY Switén REE 
OCA DATAL /STORE DATA 
+. CLA SEY SR TO FRPP MSW 
LA 
OCA DATA2 /SFORE GATE 
oe CLA /SET SR TO FPP LSW 
LA 
OCA DATAS ASFGRE DATA 
MEY Cla /SET SR YO RUN 
UMP $ SE24 /START PROGRAM 


/SPECZAL ENTRY 22, ENTERED BY STARTING THE POP Af 
ALLOCATION 8822; tRIS ROUTINE ALLOWS THE OPERATOR #0 
/RELOCATE THE PROGRAM 70 ANY DESTREG FIELO BEFORE 
/RUNNING FHE TEST; 


SE22, 2 /SPECTAL ENTRY 22 
HLT GLA /SET SR90Gl $0 rife 0 
TAD €Se22 /GET ADDRESS OF FRIS ROUTINE 
OCA RELO /SET RELOCATER ne TURN AODRESS 
LAs GET SWITCH REGISTER 
AND t? /DELETE BYES Bab 
oh CLL /MOVE FO BETS 608 
JMP RE22 /RELOCCATE PROGRAM 
ML? CLA fSET SWITCH REG FOR RUNNING 
Jue 29 /SPARY PROGRAM 
— 
( \ 
M._ 
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772 
773 
774 
775 
776 
777 
776 
779 
782 
784 
782 
783 
784 
785 
786 
787 
788 
789 
799 
794 
792 
795 
794 
795 
796 
797 


reae 
4777! 
7624 
7404 
77428 
5344 
2977 
5344 
4767! 
2826 
S778 
2402 
5359 
7249 
Side 
1972 
3872 
1766! 
4773! 
2375 


FRRORS, @ 


JMS 
Las 


RAL CLL 
SPA CLA 


JMP 
{$2 
MP 
JMS 
LiNe 
yMP 
{sz 
WMP 
STA 
oGa 
TAD 
AGA 
TAD 
JMS 
ENOes 
EFXTS 


SKF CLA 


JMP 
JMS 
JMP 


PAGE 


PFLO 


+6 
EYENT 
+4 
TYPE 


CMPEND 


ECNTS 
#3 


ECNTS 
CPNTR 
EPNTR 
CMPLO 
ERROR 


ERRORS 


CLEOR 


CMPEND 





aan 
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/UNUSED MEMORY ERROR « THE MEMORY CONSTANT WAS WRONG 
7IN & LOCATION NOY USED BY THE FPP=12, 


/UNUSED MEMORY ERROR 


/GET SWITCH REGISTER 

/SROL FO SIGN 

/TYPE ERRORS ? 

/NO @ BYPASS FYPEQUT COUNTER 
/HAVE 7 FRRORS BEEN TYPED ? 
/NO @ FYPE ERROR MESSAGE 
AYES @ TYPE 2 BLANK LINES 
/¥EXT ADDRESS 

JBYPASS FURTHER CHECKING 
/INCREMENT ERROR COUNT 

/NO OVERFLOW 

47777 %S MAX ERROR COUNT 
/RESTORE GOUNT IF OVERFLOW 
/GET ADDRESS OF RAB DATA 
/STORE IN BRROR POINTER 
/GEY BAD DATA PIELH cor 
/REPOR? ERROR 

/ADORESS OF GOOD DATA 
/ADDRESS QF PRROR PEXT 

/N@ MORE GRECKING 
/GONTINUE @OMPARE 

/CLEAR MEMORY FRRORS 

7END OF CHECK 
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647 
616 
649 
626 
624, 
622 
825 
G24 
925 
826 
927 
928 


a4, DTALiG vVvages 2eAUGa72 


/THIS ROUTINE WANOLES THE ERROR TYPEOQYT, ERROR HALT: 


/AND LOOP ON ERROR CONDITIONS, 
/JOF THE 3 INDIVIDUAL ERROR ROUTINES, 


It 18 ENTERED FROM ONE 
WHEN ENTERED, THE AC 


/CONTAINES A "COF™ INSFRUGTION FOR THE FIELO THAT THE BAD 
LOCATION "“EPNTR" CONTAINES THE ADORESS OF THE BAD 


/BATA {TS IN, 


/DATA, 
/TWE ADDRESS OF THE GOOD DATA, 


FRROR, 


EFLO:s 


THE LOCATION POLLOWINFE THE "JMS" YO THIS ROUTINE CONTAINS 


CLA 


EFLD 
ERROR 
EGD 
ERROR 
ERROR 
ETXT 
ERROR 


ENOET 
EFLO 
C78 


(6948 
EFPLO? 
ase 


fed 


ECNT 
CEBUP ed 


42 


EPNTR 
PFLO 
12 
EGNT 


EGONV 
EPNTR 
EFiLO 
EFLO 
Ce 
fe7d 


tiag 
CCOF 
EFLD 
EFLD 


/REPOR? ERRORS 

ASTORE COF IN PROGRAM 
/GEY GOO BAYA ASORESS 
/STORE IN @ONVER? ROUTINE 
/YTNCREMEN? REFURN 

/GET TEX? ADDRESS 
/STORE IN PEXF POINTER 
/TNEREMENT RETURN 

/GET SHiTEGR REGISTER 
/BIT 4 TO PHE SIGN 
/TYPE ERRORS? 
ANOsBYRAS§ TYPEOUY 

/GET BAD OATA FILS cor 
/EXPRACT FLELB BIfs 
/MOVE 70 AG@ S08 


/GONVERT FO aBeri 

/STORE IN BRROR FEL TEXT 
/GONVERT ABORESS Fe aS@1} 
/ADDRESS POINTER 

/ERROR ADDRESS TEXF 

/GEY WORD BOUNT 

/SET WORD GOUNTER | 
AGET ERROR SUPPER ADDRESS 
/STORE IN AUTO INDEX REG 
/CHANGE TQ BAD DAtA FIELD 
/GET BAD DATA 

/RESTORE OATA Fred 

/STORE BATA IN ERROR BUFFER 
ZEND OF DATA? 

ANOMCONTINUE 

AYESeCONVERT TE aSél! 

ZINC BAD DATA POENTER 

/GET NEXT WORD 

/FIELO OVERFLOWeGE? COP 
/EXTRACT PYELO BITS 

/GHECK [fF PIELB 7 

AIP FIELO 9860 TO PIELO @ 
/NOY FIELO 7eABD 4 TO FIELO BIFS 


~AMAKE NO COF ENSTRUCTION 


/UPOATE PROGRAM 
/MOVE NEXT WORD 
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870 
874 
872 
673 
a74 
675 
$76 
877 
678 
879 
889 
664 
882 
683 
684 
685 


1252 
1258 
1254 
4255 
1256 
1257 
1262 
4244 
1262 
1265 
1264 
1265 


7240 
3276 
1442 
3274 
7604 
7040 
7630 
5270 
1462 
3376 
4774! 
1674 
4774! 
1764 
4776! 


8944 
4753 
4776! 
6446 
1756 
4774! 
4749 
1457 
3777! 
4437 
3773! 
4437 
3772! 


ECONV, 


EXT, 


EGO, 


EBO, 


ERET, 


STA 
ACA 
TAO 
NCA 
Las 
RAR 


SZ, CLA 


JMP 
FAO 
OCA 
JMS 
EYXT4 
JMS 
ETXT4 
JMS 


DATAY 
EGOT 
JMS 
EBUF 
reor 
JM 
EQT 
FA 
DCA 
TAD 
DCA 
TAD 


EGNT 
CEBUF 
EBD 


EGHet 
Ca’ 
ECNT 
TYPE 
PYRE 


ASE 


EGDa4, 
ENQET 


C40 


ERROR 
ERROR 





am 


ra 


a4 OfALie vaes 
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/AG & wi 

/SET WORD @OUNT 

/GEY BAD DATA ADDRESS 

/SET BAD OaTA POENPER 

/GET SWITCH REGISTER 

/MOVE ac 47 f0 THE LINK 

/SHORT YYPEOUT ? 

/YES @ BYPASS HEADER 

/NQ » SEF WORD COUNT FOR &$ LINES 


/FYPE ERROR HEADER 
/TEXY ADDRESS 


/CONVERT Good DAtA TO ASCII 


/QATA ADDRESS 

/GOOD DATA TEX? ADORESS 
/GONVERT BAD DATA FO ASCE! 
/BAD DATA ADORESS 

/BAD DATA EX? ABORESS 
TYPE DATA 

/DATA YEXT ADORESS 

/ASEI1Y SPAGES 

/SPACES 70 A TEXT 
/ASCI] SPARES 

/SPACES 70 aDORESS TEX? 
/ASC}] SPACES 

/SPACES TO SEGONH WORD OF TEXT 
“ING GOOD BATA ADDRESS 
/ING BAD BATA ADORESS 

END OF TYPEOUT? 

/NO#TYPE NEXT WORD 


/YES 

/GET SWITCH REGISTER 
JEXTRACT SRO6 

CONTINUE COMPARE ? 
/YES = ee RETURN 
/ERROR EX} f 
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¥42 
943 
44 
945 
946 
947 
v18 
949 
926 
y24 
922 
923 
ye4 
925 
926 
927 
928 
929 
938 
934 
9S$2 
933 


1322 
{324 
4322 
4323 
4324 
4325 
£326 
4327 
4338 
1334 
1332 
4335 
1534 
1335 
135356 
4337 
4342 


) 


7604 
7740 
5326 
1972 
4135 
7492 
7694 
7426 
7722 
53i8 
6555 
7008 
6556 
7442 
7620 
5334 
3326 


ENBET, 


ERLOOP, 


Las 
SPA CLA 

yMP 24 
Fad EPNTR 
TAD fe? 
BLY 

LAS 

RTL CLL 

SMA ELA 

JMP ERET 
FPST 

NOP 

FPRSF 

Chi, RVR 

SNL CLA 

JM 2335 
JMP ER OOP 


PAGE 
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/GET SWITCH REGISTER 
/HALY ON ERROR? 

/NO 

/YESeGEY BAD DATA ADDRESS 
/RESTORE TOORIGINAL ADMRESS 
/ERROR HAL? 

/GET SWITCH REGISTER 
/SRe2 TO TwE SYGN 

/L00P ON ERROR? 
/NOWREFURN 

/YESwSTARY THE FPPei? 


/GEY FPP STATUS 
/PAUSE BIT TO LINK 
/}S FPP IN PAUSE? 
/NO@WATY FOR PAUSE 
/VESaeCHECK SR@P AGAIN 


lm, 


an 
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944 

yao /CONVERT OCTAL WORD 70 6 BIT ASC]! 

943 /PACK 2 CHARACTERS PER WORD, 

yaa 

y45 4499 ode ASC, 4 

946 4474 1692 TAD $ ASE /GEY ADDRESS OF HATA WORD 
947 4492 3241 MCA ASa4 /SAVE 

¥48 1403 2282 1S2 ASC /INCREMENT REPURN 

gag 1484 1602 TAD 3} ASE /GET YEXT ADDRESS 

956 4495 3249 ACA ASGS /SAVE TEXT ADORESS 

954 4486 2209 i$z ASG /INCREMENT RETURN 

52 4407 1243 TAD AS¢77 /GET MASK 

953 4448 7842 CMA /LEFYT HALP an 
954 4441 9644 ANDO { ASG4 AEXTRACT LEFT WALF OF DATA 
955 4442 7442 CLL, RTR /MOVE TO RIGHT HaLP 

¥56 44143 7042 RYR 

957 14444 7642 RTR 

958 4445 4223 JMS ASEB /CONVERT LEFT HALF 

959 1446 2249 {Sz ases /YNCREMENT TEXY ADBRESS 
962 4447 1243 TaD AS€77 /GET MASK 

964 4428 8644 ANO { ASC4 /EXTRACT at beh HALF OF DATA WORD 
942 4424 4223 JMS AS¢B /GONVERT RIGHT HALP 

85 4422 36a0 JMP y ASE EXIT 

64 

965 4423 9969 ASCB, 28 /GCONVERT 2 OCTAL DIGITS 
966 4424 3242 DGA ASe5 /SAVE BATA 

947 4425 1242 rad ASé5 /RESTORE DATA 

968 4426 7906 RTL, /MOVE DATA 4 DIGIT LEFT 
9o9 4427 7004 RAL, 

978 4430 2236 ANO ASG4 /OELETE RIGHT DICIP 

974 4434 1242 TAO ASES5 /GEY CORREET RIGHT DIGIT | 
972 $432 2236 ANO aASé4 /BAVE ONLY 2@ CORRECT DIGITS 
V7S 4433 1237 rao ASG2 /INSERT AS@I{ MOOIPIER 

974 4434 3642 OGa ft ASSES /STORE CONVERTED DATA 
ae 4435 5623 JMP f ASEB “RETURN 

76 
977 4436 8787 ASCi, 8787 
978 4437 6869 ASC2, 6868 
979 1442 o90¢ ASS, 28 

782 4444 2000 ASG4, 28 
984 £442 2299 ASC5, , 
982 4443 2077 ASC77, 77 
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984 
985 
986 
987 
988 
989 
992 
994 
992 
993 
994 
995 
996 
997 
798 
999 

1208 

4004 

1082 

4203 

4004 

4285 

1086 

4087 

4086 

009 

4048 


a 
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a4 OfALds = vaeeS 2pAUGe72 


APES ROUTINE UNPACKES 6 BIT PACKED ASCII! CHARACTERS AND 


/OUTPUTS THEY FO THE TELETYPE, 


A WORD CONTAINING GCTAL 


s7472 (C4) [S MECOHED AS A CARRIAGE RETURN e LYNE FEED’ 


FYPE s 


TORE a 


TRET, 


TYPAs 


TTY» 


& 


CLA 
TAO 


JMP 


CLA 


RFR 


TYPE 
TPNTR 
TYPE 
TPNTR 
CRLF 


rets 
TOUT 
ret2 
TOUT 
TRET 
TPNTR 


TYPA 
TPNTR 
TYPA 
TPNTR 
FORLF 


17? 


PR 
7MA8 


7468 
¥ea4e 


TOUT 
TYPA 


TCRR 


24 


TTY 
TYPE 


/TYPE 6 BI PACKED ASCII! 


/GET TEX? ADDRESS 
/SFORE IN POINTER 
/YNCREMENT RETURN 

GET TEXT WORD 

/ABDD CARR{AGE RETURN CONSTANT 
CARRIAGE RETURN (41597 
/NOSCONVER? DATA 
/ASCUI RETURN 

/TYPE UT 

ALINE PEED 

STYPE VF 

“RETURN POR NEXT WORD 
/GET TEXT WORD 

/MOVE LEFT CHARACTER 
47 RIGHT WALF OF AC 


/GONVERT ANDO PYPE LEFT CHARACTER 
fGET YEXY WORD AGAIN 

/GONVERT AND FYP@ RIGHY CHARACTER 
JING YEXT POINTER 

(GET NEXT WORD 


/GONVERT AC 601 TO FRUE ASC!) 
fQELETE AG de 

/END OF TENT SPRING? | 

/¥OS @ PRINT LYNE ANG RETURN 
/SUBTRAC? 46 

/LESS THAN 402 

/YESe3G0 SERIES CHAReABD 188 
/ADD ORIGINAL 484286 

TYPE CHARACTER 

/GET NEX? @HARACTER 


/GET GHARACTER 
/OUTPUT CHARACTER 
/WAIT FOR PFLAG 


/CLEAR FHE TTY FLAG 


41S KEYBOARD FLAG SET? 
/NO@REPURN 

/YESoCLEAR FLAG ; 
/BYPASS REMAINING YEXT 


ff ™ 


\ 


f j 
\ 1 
KSA 


7439 
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4256 
4037 1522 8092 TOUT, 28 /CHECK OUTPUT BEVIGCE 
4038 4521 3336 DCA TCHR /SAVE CHARACTER 
qe39 4522 7604 LAS /GET SWITCH REGISTER 
1042 4523 7242 RTR /MOVE SR29 TO FHE LINK 
4044 1524 7042 RAR 
1042 4525 7630 SZ. La /tS OUTPUT TO A PRINTER ? 
4243 4526 5334 JMP #3 /YES 
4044 4527 4305 JMS Try JNO © OUTPUT Te THE TTY 
4945 4530 5729 JMP 3 = TOUT /RETURN | 
1246 4534 6662 SFLG /SET OR CLEAR FLAG IN PRINTER 
4247 4532 6661 CFLG /WHICK PRINTER [8 AVAILABLE 7 
4048 4533 4363 JMS LPas /1? 3S THE LPgS 
4049 4534 4777! JMS LPi2 /Y? YS YHE LPLe 
A 4535 5729 JMP Y 8 TOUT /RETURN 
vee 4536 ogag TCHR, g /SAVE OUTPUT CHARAETER HERE 
1058 
eee /yP A PRINTER WAS YSED, PRINT THE LINE AND EX!? 
4956 4537 7684 PRT, LAS /GEY THE SWIPCH REGISTER 
4057 4540 7942 RIR /MOVE SROD TO FHE LINK 
4038 4344 7840 RAR 
4959 4542 7620 SNL CLA /WAS THE TPY USED ? 
1060 1543 5644 JMP } | TYPE /YES © EX{? 
1264 4544 6662 SFLG /SET OR CLEAR PRINVER FLAG 
4062 4545 6664 CFLG /WHICH LINE PRINTER ? 
14063 4546 8355 JMP PR*S /.Pg8 
1264 4547 1166 TAO Cie /LP42 END LINE CONTROL 
1265 4550 6652 LCF /CLEAR THE FLAGS 
4066 45514 6664 LPR /PRINT THE LINE 
4267 4532 66614 L90 /WATT FOR PRINTER FO FINISH 
4968 4553 3332 JMP peat 
4069 4554 5644 JMP Y = FYPE /EXIT 
1970 4555 1407 PRT8, TAD Teis5 /CARRIAGE RETURN GHARAETER 
4074 1536 6666 LPe /PRINY YHE LINE 
4072 4557 6664 LSF AWAIT FOR PRINTER 70 FINISH 
1073 4560 5387 JMP ag 
1974 4564 7300 CLA CLL 
4075 45462 5644 JMP 3 = TYPE /EXI? 
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4077 
1278 
4079 
{268 
$083 
1282 
4283 
pea 
1085 
4286 
4987 
1988 
1289 


1568 
1564 
$565 
£566 
41567 
1570 
1574 
L57@ 
1573 
4574 
1575 


4577 


ERA 
6663 
7648 
3763 
1336 
6666 
6664 
5S74 
7398 
2363 
9763 


4688 
1688 


2889 
6634 
7640 
5688 
13934 
L455 
7452 
7e24 
1469 
7632 
324 
1534 
B452 
6652 
6654 
6664 


? 
7380 
3608 


/QUTPUY TO THE LP@S LINE PRINTER 


LPOG; 


JQUTPUT 
LPL2s 


LPaee, 


a 

LOR 

SKP CLA 

JMP f LP3s 
FAO TCHR 
LPC 

LSF 

JMP ,ef 
CLA CLL 

192 LP@s 
JMP f LP@s 


PAGE 
TO THE LPL2 PRINTER 


g 

LSE 

SKF CLA 

JMP { LPL? 
TAO { CTERR 
YAO C2212 
SNA 

JMP LPi2e 
Ta fey 
SNA CLA 


CLA CLL 
uMP } = Pde 


84, OfYaLis vees 2ebAUGe72 


/CHECK FOR PRINTER ERROR 
/PRINTER 18 OK 

/PRINYTER 18 NOY READY @ EX}T 
/GET OUTPUT CHARACTER 
OUTPUT £7 TO THE PRINFER 
/WALY POR PRINTER FO FINISH 


/ING RETURN OVER LP42 CALL 
JEXTT 


/GHECK FOR PRINTER ERROR 
/PRINTER T4 OK 

/PRINTER $8 NO® READY @ EXIT 
/GET OUTPUT CHARAGPER 
/SUBTRAG?T LINE FEER 

/LINE PEED ? 

AYES « [GNORE 

/SUBTRACT GARR ace RETURN 
/GARRIAGE RETURN ? 

/Y¥€8 a IGNORE {T 

/GET QUTPUT SHARAGTER 

/SFRIF I? #0 6 BITS 

fGLEAR FLAGS 

/L,0AD0 GHAR INFO PRINT BUFFER 
AWALT FOR PRINTER FO FINISH 


/EXIT 


7439 
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11202 
1422 
4422 
1425 
1124 
4425 
4426 
4427 
1426 


1625 
1624 
1625 
1626 
1627 
1632 


1634 
16352 
1633 
1634 
1635 
1636 


1637 
1642 
4641 
1642 
1648 
1644 
1645 
1646 


4647 
4652 
4654 
4692 
4658 
1654 
4635 
1636 
4657 


4668 
1663 
1642 
1663 
1664 
1665 
1666 
4667 
1672 
167% 
167¢ 
16735 


2808 
7309 
6224 
7040 
7042 
7623 


2988 
7389 
3408 
S4B1 
3402 
9634 


ag09 
7309 
1109 
4491 
1122 
7432 
7240 
3637 


2982 
3257 
6224 
4474 
3254 
6204 
1257 
5647 
C280 


agag 
4534 
4234 
3403 
1130 
3264 
7402 
7604 
0444 
3404 
7402 
5660 


GFLO: 


CLRCT, 


EFLAG, 


PFLO« 


PFT, 
CLEAR, 


a 
C 
RIF 
RAR 


RFR 
JMP 


CLA 
OCA 
OGA 
OCGA 
JMP 


CLA 


JMP 


CLL 


CLL 


CLL 


GFLD 


ECNTY 
ECNT2 
ECNTS 
CLRCY 


ECNTS 
ECNT2 
ECNTS 


EFLAG 


pre 


CCoF 
sed 


PFF 
PFLO 


CSAVE 
CLACT 
PCT 
C7888 
CLEAR #4 


C7 
LIMIT 
CLEAR 


aX, 


Oi, ODALd® VeG3 2eAUGe72 7139 


/GET INST PIELD BYPS IN AC9o44 


/GET FIELO B1ts 
/MOVE ¥O ACGwid 


/CLEAR ERROR COUNTERS 


/GEY TOTAL NO, OF ERRORS 


/OVERFLOW? 
/YES@AC87797 


/SEY DATA PIELOsENST FYELDO 

/SAVE AC ; 

/GET INSTRUCTION FIELD BITS 
7ADD COF INSTRUCTION 

ASTORE IN NEXT INSPRUCTION 

/GOFSINST PIELO 

/RESTORE Ae 

/RETURN 


/SAVE THE BINARY LOADER 
/2ERO ERROR COUNTERS 
/2ERO PASS COUNTER 

/GET A "NOPH INSPRUCTION 
/DELETE SAVE BIN CALL 
/SET SRO9eG1 a UPPER LIMIT 
/GET UPPER LIMIT 

/DELETE BI?S Ga8 

/SEY UPPER LIMIT 

/SEY SWITCWES FOR RUNNING 
/RETURN 








PAGE 28 





/COPYRIGHT 4972, DIGITAL EQUIPMENT CORP,, MAYNARO, MASS, @1 DYAL{O vases 2eAUGe72 7439 


1449 


4478 
$474 


4476 
£475 


4674 
1675 
1676 
1677 
1728 
4744 
{782 
1723 
4764 
1785 
1786 
4727 
1742 
1744 


1742 
i743 
1744 
1745 
1746 
1747 
4728 


7492 
4905 
2222 
1722 
4941 
1642 
2622 
2955 
6162 
4004 
2424 
2442 
2747 
22846 


8960 
7472 
4993 
2222 
1722 
4041 
1649 
G20) 
2985 
4324 
C186 
1405 


8088 
7472 
4985 
2222 
1722 
4941 
1649 
2346 
2523 
o5a4 
42945 
@315 
1722 
S140 
AGOGO 
7499 
aged 
agag 
ogee 
4940 
494g 
ageg 
ageg 
4949 
Agag 
gang 
ngAg 


EYXT1, 


EYXT2, 


EYXTS, 


COT, 
EFLOT, 
EADT: 


EGOTs» 


EBDT, 


TEXT 


4g 
TEXT 


8 
TEXT 


Q 

7472 
GO8e 
goae 
AGG? 
4949 
4240 
nee 
AVag 
4040 
A208 
A288 
AGS 


"€} ERROR IN FPPei2 DATA WORDN 


"<j ERROR IN BASE TABLER 


"€}] ERROR §N UNUSED MEMORY® 


AGRLF 
/BAD DATA PIELO 
ABAD OATA ADDRESS 


/SPACES 
/GOOQ0 DATA 


fSPACES 
fBAD DATA 


/TERMINE "AR 


LS 
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~ 4187 
1188 


4489 
44908 


4493 
1492 
£495 
4494 


1764 
1762 
1748 
1764 
1765 
1766 
1767 
41778 
4774 
1772 
1773 
1774 
4775 
1776 
4777 
2089 
2004 
2282 
2088 
2004 
2005 


7472 
2404 
2422 
e528 
2542 
4948 
C747 
1704 
4249 
0204 
2408 
2982 
7472 
6062 
6969 
4949 
2522 
2247 
2228 


ETXT4, 


TXThe 


TXVAF, 


TXT2: 


TXTvar, 


LiNes 


PETIs 


TEXT 


‘4 
TEXT 


4 
4 


TEXT 


7472 
7472 
0908 


TEXT 


"<rADDRESS GOOD Bad" 


"€}9@08 ERRORS IN FIELD ” 


"CIGOING YO FIELO * 


7RETURN » LINE FEED 
/RETURN e@ LINE FEED 


"¢;9000 FPP DATA ERRORS" 


7439 
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1225 
4204 


£225 
4626 


$287 
4208 


4209 
£232 
Lei3 


2842 
2243 


2044 
2845 
2046 
2047 
2958 
2054 
2252 
2233 
2934 
2035 
2256 
2257 
2068 


206% 
2062 
29638 
2364 
2065 
2966 
2067 
2978 


2247 
22283 


e929 
7472 
6062 
6268 
4002 
0423 
0540 
2403 
7244 
8549 
9522 
2247 
2223 


LT 
7472 
6969 
6869 
4925 


PEYT2: 


PETS: 


EPY, 


EPTVe 


J 
TEXT 


g 
TEXT 


TEXT 


ma 


"€10@0@ BASE TABLE ERRORS” 


"€10088 UNUSED MEMORY ERRORS" 


M<C}END PASS "% 


~ 
Ne 
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¢2i2 

1213 /THIS ROUTINE SAVES THE LASY MEMORY PAGE 

4244 /JN FIELD @ THE FIRST TIME THIS PROGRAM 

4215 /}S RAN AFTER LOADING, YHE LAST PAGE IS MOVE 

4216 /¥0 AN AREA WIPHIN THE PROGRAM AND CARRIED WITH 

ee /TWE PROGRAM ANY TIME !7 IS RELOCATED 

seis 

4219 2144 e8ae SAVE, 28 

4220 2142 7203 CLA 

4223 2443 1447 TAD CSBUF e4 /GET ADDRESS OF SAVE BUFFER 
4222 21414 3242 Oca 12 /SAVE IN AUTO INDEX REG 
4223 2145 1472 TAD | CPNTR /GET WORD FROM LAS? PAGE 
4224 2146 3442 NCA } 12 /STORE IN BUFFER 

4225 2147 209¢ 1S2 CPNTR /INCREMENT PAGE ADORESS 
4226 2428 3345 JMP ,o3 /GET NEXT WORD 

1227 2121 1358 rad C7628 /CLA INSTRUCTION 
4228 2422 Sg2¢g QCA 28 /CLEAR CALL 70 THIS ROUTINE 
1229 2423 7604 LAS /GET SWITCH REGISTER 
4230 2124 0444 AND (7 /GEY FIELO LIMIT 

4234 2425 3104 OCA LIMIT /SET LIMIT 

1232 21426 «5744 JHP ~ SAVE /EX1? 
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2g te 
Tete 
gosta 


Bde 
£482 
9482 
gik2 
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CED 
A1LBG 


820% 
OS582 


A4GQ 
ASBe 


F688 
788 


1008 
1408 


4288 
4308 


4460 
4908 


4608 
4780 


2080 
eab8 


eRe 
2580 


2400 
2980 


2680 
2780 
SHBO 
3498 


3200 
S588 
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3308 


S600 
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COAGERAR 
TOSSPBSE 


SPOSAHSS 
ASAVSR80 


EQUIPMENT 
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11282208 


11114111 
2111411413 


112141114 
$11141141 


44214111 
Zi2i4111 
11144111 
41144114 


44244111 
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gitidiid 
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44414114 
diiidii2 


GBISSAAL 
APOKCCSSL 


BEPRECHD 
SPLKSSHM 
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AFLO 9942 EPY 2677 LSD 6661 
APNTR A943 EP2 7ie LSE 6684 
APT 4952 EPS 2798 LSF 6661 
ase 44g EP 4 2736 LSR 6663 
aScy 1436 EPS C736 MODE A920 
aSC2 4437 EPASS 663 MOVEP 1846 
aSC3 4449 FPNTR @872 NFLO 4047 
ase4 4444 EPY 2100 Pg 055 
aSes 4442 ePry 2466 PCT @183 
aSe7? 1443 FRET 133 POPT ag42 
sSCB 14423 ERLOCP 1326 PET, 2034 
BASE 0944 FRROR 4262 PET2 2945 
eTcK 4943 ERRORY 1026 PETS 2862 
CEND 8458 ERROR2 41854 PFLO 4667 
cFLD 2226 FRRORS 1433 PFT 4637 
eFLG 6644 ETCNY 6097 PPNTR  @894 
CKFLO 8627 EYXT 4265 PRY 4597 
eKMEM 2583 EYXTS 1694 PRTE 4555 
CKREL 2645 EYxT2 1743 RE22 18¢4 
LOR 2286 EYXTS 4727 REO £96¢ 
CL &ar 1669 EFXT4 476i RESGOF 8466 
CLRGT 1634 FCLA 8662 RESTOR 6745 
eMFLO 28529 FLOA geag RFLO B4¢5 
CMPEND 2689 FPAVSE 880% RUN a3t? 
eMPR 2409 PPC 8983 SAVE 2404 
ePNTR 8892 FPCOM 6583 SBUF 2427 
ERLE 445 PPICL $32 Stee 4426 
CATA ag4g FPP C83e SE24 4697 
CATAL 8844 PPP2 644 SFLG 6642 
CATA2 2843 FPRSY 6556 START 8262 
CATAS 8846 FPST 6555 STFPP 866284 
PATAS @847 FRUA BaR6 ? 9466 
ero 2443 STA 6088 7498 a4¢3 
f ADT 4747 FSTEP 8332 f2i2 8148 
e8o 4274 FSW 0195 T2453 A407 
eser 4756 GFLD 1623 T24@ B417%4 
geaur C416 INCLA 8763 777 6474 
PCNT 0876 INGLAP 6344 TAODR 8894 
GONTS 8499 JA 4938 TCHR 1586 
EENT2 8494 K2 0027 FCRLF 44594 
WGNTS  @462 KS 8356 TM4g e172 
ESONV 1282 LAP 6424 TOUT 1529 
EQ? 1745 LGF 6682 TPNTR #093 
PFLAG 1637 LIM7 @488 FRET 4474 
FFLO 12354 LIMIT 404 TTY 45485 
WRFLOT 1746 LINe 2026 TXT4 1795 
eGo 4274 LL.B 6654 TXT4F 06-204 
eGceT 1783 LP@s 4568 ¥xXfe 20¢8 
END 2408 LPi2 1696 TXTSF 2024 
END42 1872 LP42—E 1624 TYPA 4493 
ENDET 1322 LPC 6666 TYPE 1444 
ENDREL 7656 LPR 6664 WONT BO95 
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SFLO 4408 269 324 385 489 494 SEs 

APNTR 1414 276 304 325 329 346 504 686 

Ape 4488 266 286 

ASC 566 578 586 594 844 885 892 945% 946 948 949 954 963 

ASC4 978 972 977% 

aS€2 973 9768 

ASCs 950 959 974 979% 

ASC4 947 954 964 98G# 

ASC5 966 9467 974 98146 

ASC77 992 962 9828 

Agee 938 942 965# 975 

BASE 139% 154 

RTCK 69448 784 

CENQ 37% 3898 599 

CFLO 222 Z22yH 227 229 246 248 249 

CFLG 958 4¢47 1962 

CKFLO 507 Sige 517 548 522 523 

CKMEM 398 4298 725 726 

CKREL 493 528% 

CLCOR 212 2158 238 799 

CLEAR 167 41568 4161 1167 

CLRGT 599 41268 864455 4158 

CMPLD 444 44o8 449 454 468 470 474 793 

CMPEND 432 469 4658 693 724, 786 ae 

CMPR 3146 346% 

EPNTR 4748 220 225 226 245 347 358 373 439 443 448 467 522 542 
546 649 625 626 794 4223 4225 

CRLE 4928 995 

DATA 1388 289 24 224 445 S44 738 

DATAL 14428 274 a73 348 694 749 744 888 

DATA2 1438 274 276 743 744 

DAPAS 14449 277 279 352 747 

DAFA4 1458 

OFLO $89 So7e 3764 575 385 S87 $83 463 4g4 445 424 689 

gant 846 898 962 41776 

EBD 874 6948 982 

EBPT g92 41844 

eBur 1934 849 873 B94 

ECNT 4778 846 855 872 880 983 

ECNTS 479¢ 563 367 682 685 1139 4139 

ECNT2 4404 575 579 729 742 4134 4148 

ECNTS 4849 583 587 787 792 4132 4144 

ECONY 857 8744 

EDT 894 41758 

EFLAG 558 44378 41444 

EFLQ 827 836 8538 859 860 866 B67 

EFLQT 843 896 114768 

EGO 829 878 Been 904 904 

EGOT 889 41848 

END 249 244 323 4368 466 666 795 {248# 

END42 702 7228 

ENDET 837 925 9138 

ENOREL 537% 
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